home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #189 (199x)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #189 (199x)(Rhein-Sieg-Soft).adf
/
Dreisatz!
/
Dreisatz.mod
< prev
next >
Wrap
Text File
|
1992-08-11
|
1KB
|
47 lines
(* Dreisatz @ 1992 by Matthias Gutt, Kantstr. 16, W-2120 Lüneburg
Ein Programm für den kaufmännischen Bereich *)
MODULE Dreisatz;
FROM SYSTEM IMPORT ADR;
FROM RealInOut IMPORT ReadReal,WriteReal;
FROM InOut IMPORT WriteLn,WriteString;
VAR
Antwort,Eingabe1,Eingabe2,Eingabe3,Ergebnis,Return: REAL;
BEGIN
WriteLn;
WriteString("Dreisatz @ 1992 by Matthias Gutt, Kantstr. 16,");
WriteString("W-2120 Lüneburg ");
WriteLn;
WriteString("Proportional oder Antiproportional (0/1) ?:");ReadReal(Antwort);
IF Antwort >1.0 THEN WriteString("Falsche Eingabe !");END;
IF Antwort <0.0 THEN WriteString("Falsche Eingabe !");END;
WriteLn;
WriteString("1.Eingabe :");ReadReal(Eingabe1);
WriteString("2.Eingabe :");ReadReal(Eingabe2);
WriteString("3.Eingabe: ");ReadReal(Eingabe3);
WriteLn;
IF Antwort=0.0 THEN Ergebnis:=Eingabe2*Eingabe3;Ergebnis:=Ergebnis/Eingabe1;END;
IF Antwort=0.0 THEN WriteReal(Ergebnis,3,4);WriteString(" =");WriteReal(Eingabe2,3,4);WriteString("*");
WriteReal(Eingabe3,3,4);WriteString("/");WriteReal(Eingabe1,3,4);
WriteString(" -RETURN- :");ReadReal(Return);END;
IF Antwort=1.0 THEN Ergebnis:=Eingabe1*Eingabe2;Ergebnis:=Ergebnis/Eingabe3;END;
IF Antwort=1.0 THEN WriteReal(Ergebnis,3,4);WriteString(" =");WriteReal(Eingabe1,3,4);
WriteString("*"); WriteReal(Eingabe2,3,4);WriteString("/");WriteReal(Eingabe3,3,4);
WriteString(" -RETURN- :");ReadReal(Return);END;
END Dreisatz.